Fix previous dired-x.el change.

diff --git a/lisp/dired-x.el b/lisp/dired-x.el
index 94398687d113b13c3a2da459b00eacf07567db17..d71212e5dcb354aa3651aee35d4419d9fccf48b5 100644 (file)
--- a/lisp/dired-x.el
+++ b/lisp/dired-x.el
@@ -735,9 +735,9 @@ If none, return `default-directory'."
                         ((eq major-mode 'dired-mode) (dired-get-filename t t))))
     current-prefix-arg
     shell-command-default-error-buffer))
-  (let ((default-directory (if (eq major-mode 'dired-mode)
-                               (dired-current-directory)
-                             default-directory)))
+  (let ((default-directory (or (and (eq major-mode 'dired-mode)
+                                    (dired-current-directory))
+                               default-directory)))
     (shell-command command output-buffer error-buffer)))
 
 \f